(PROGN (LISPXPRIN1 (QUOTE "FILE CREATED ") T) (LISPXPRIN1 (QUOTE 
"19-JUN-73 04:29:38") T) (LISPXTERPRI T))
(LISPXPRINT (QUOTE OCTAGONVARS) T)
(RPAQQ OCTAGONVARS ((FNS) (VARS OCTAGON)))
(DEFINEQ
)
(RPAQQ OCTAGON (STRUCTURE ((CTENTRY 1 (NIL) 8 2) (CTENTRY 2 (NIL)
1 3) (CTENTRY 3 (NIL) 2 4) (CTENTRY 4 (NIL) 3 5) (CTENTRY 5 (NIL)
4 6) (CTENTRY 6 (NIL) 5 7) (CTENTRY 7 (NIL) 6 8) (CTENTRY 8 (NIL)
7 1)) OCTAGON 8 NIL))
STOP